home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / ltx-qf10.lha / q-fidv < prev    next >
Text File  |  1994-01-18  |  679b  |  55 lines
  1. /**Q-FID Visual***********/
  2. options results
  3. address "CNETREXX0"
  4. key="nj"
  5. key2=""
  6. r=getclip("R")
  7. c1=getclip("c1")
  8. c2=getclip("c2")
  9. saveimed=getclip("saveimed")
  10. save=""
  11. if saveimed=1 then do
  12.     save="S"
  13. end
  14. if r~=1 then do
  15.     c1=1
  16.     c2=8
  17. end
  18.  
  19. open("i","ram:file_id.diz","R")
  20.     c=0
  21.     do until eof("i")=1
  22.         c=c+1
  23.         zeile.c=readln("i")
  24.     end
  25. close("i")
  26. cr=""
  27. ca=c1
  28. cb=c2
  29. if c2-c1+1>5 then do
  30.     ca=c1
  31.     cb=c1+4
  32.     cc=c2
  33.     g5=1
  34. end
  35.  
  36.  
  37. do a=ca to cb
  38.     if a=1 then do
  39.         key=key""zeile.a
  40.     end
  41.     if a~=1 then do
  42.         key=key""cr""zeile.a
  43.     end
  44. end
  45. if g5=1 then do
  46.     do a=cb+1 to cc
  47.         key2=key2""cr""zeile.a
  48.     end
  49. end
  50.  
  51. addkeys cr
  52. addkeys key
  53. addkeys key2""save
  54. address command "c:delete ram:file_id.diz >nil:"
  55.